Graphics Plus/Graphics Plus.iso/general/msdl/example.lha/example-scenes/gents-toilet.lha/gents-toilet.msdl

Text File | 1993-11-03 | 9.1 KB | 715 lines

                     /*           gents.dat               */

        /*   THIS IS A SCENE WHICH DESCRIBES THE GENTS TOILETS ON THE */
               /* GROUND FLOOR OF THE COMPUTER SCIENCE BUILDING */
/* This file is possibly a bit messed up. We've included it only because */
/* we don't think anyone has ever done a model of some toilets, and the */
/* world of computer graphics is crying out for it! If you think you can */
/* spot whats wrong with the model then let us know, and we'll try to fix it*/

    /*   anything enclosed by forward slash and stars requires setting  */

        view
             from       0   0   170
             towards    220 170 170
             up         0   0   -11
         window 0 0 0 0
        end


defprops
        honeydew
          drc     0.9412  1.0000  0.9412
      src       0.7     0.7   0.7
          phexp  70
end



defprops
        slategreydark
/*             drc       0.1843 0.3098 0.309 */
    drc 0.7 0.7 0.7
       src       0.5     0.5   0.5
           phexp  30
end



defprops
        indigo
           drc       0.0300 0.1800 0.3300
       src 0.5 0.5 0.5
        phexp  20
           /*texture file breezeblock*/
end



defprops
        mintcream
           drc       0.9608 1.0000 0.9804
       src       0.7     0.7   0.7
           phexp  70
end



defprops
        antiquewhite
           drc     0.5  0.5  0.5
       src       0.7     0.7   0.7
           phexp  10
           /*texture file tile*/
end



defprops
        silver
           drc       0.3   0.3   0.3
       src       0.7     0.7   0.7
       phexp  40
end



defobj unitcube
   box
      0 0 0
      1 1 1
   end
end



defobj floor

   polygon
           7
           480 361 0
           419 361 0
           419 422 0
           0   422 0
           0   0   0
           480 0   0
           480 270 0
           instprops slategreydark
   end

end


defobj ceiling

   polygon
           7
           480 270 0
           480 0   0
           0   0   0
           0   422 0
           419 422 0
           419 361 0
           480 361 0
           instprops antiquewhite
   end

end



defobj backwall

   polygon
           4
           419 422 240
           0   422 240
           0   422 150
           419 422 150
           instprops indigo
   end


   polygon
           4
           419 422 150
           0   422 150
           0   422 0
           419 422 0
           instprops slategreydark
   end

end



defobj leftwall

   polygon
           4
           0 422 240
           0 0   240
           0 0   150
           0 422 150
           instprops indigo
   end


   polygon
           4
           0 422 150
           0 0   150
           0 0   0
           0 422 0
           instprops slategreydark
   end

end



defobj rightwall

      polygon
              4
              480 0   240
              480 270 240
              480 270 150
              480 0   150
              instprops indigo
      end


      polygon
              4
              480 0   150
              480 270 150
              480 270 0
              480 0   0
              instprops slategreydark
      end

end



defobj cubicalwall

   polygon
          4
          380 152 240
          220 152 240
          220 152 150
          380 152 150
          instprops indigo
   end


   polygon
          4
          380 152 150
          220 152 150
          220 152 0
          380 152 0
          instprops slategreydark
   end

end



defobj cubicalwallend

   polygon
          4
          220 152 240
          220 160 240
          220 160 150
          220 152 150
          instprops indigo
   end


   polygon
          4
          220 152 150
          220 160 150
          220 160 0
          220 152 0
          instprops slategreydark
   end

end



defobj toiletdoor1

   instobj unitcube
      instprops silver
      scale 3 6 6
      shift 219 170 100
   end


   polygon 4
           222 234 8
           222 160 8
           222 160 198
           222 234 198
           instprops mintcream
   end

end



defobj division1

   polygon 4
           220 250 8
           220 234 8
           220 234 198
           220 250 198
           instprops mintcream
   end


   polygon 4
           220 234 8
           222 234 8
           222 234 198
           220 234 198
           instprops mintcream
   end

end



defobj toiletdoor2
   instobj toiletdoor1
      shift 0 90 0
   end
end



defobj division2
   instobj division1
      shift 0 90 0
   end
end



defobj  toiletdoor3
   instobj toiletdoor2
      shift 0 90 0
   end
end



defobj enddivision

   polygon
           4
           220 422 8
           220 414 8
           220 414 198
           220 422 198
           instprops mintcream
   end


   polygon 4
           220 414 8
           222 414 8
           222 414 198
           220 414 198
           instprops mintcream
   end

end



defobj urinal

   polygon
           6
           0 36 60
           0 44 60
           0 44 0
           0 0  0
           0 0  10
           0 36 10
           instprops honeydew
   end


   polygon
           8
           30 36 60
           0  36 60
           0  36 10
           2  36 10
           2  36 58
           28 36 58
           28 36 10
           30 36 10
           instprops honeydew
   end


   polygon
           8
           30 36 10
           28 36 10
           28 2  10
           2  2  10
           2  36 10
           0  36 10
           0  0  10
           30 0  10
           instprops honeydew
   end


   polygon
           4
           30 0 10
           0  0 10
           0  0 0
           30 0 0
           instprops honeydew
   end


   polygon
           6
           30 44 60
           30 36 60
           30 36 10
           30 0  10
           30 0  0
           30 44 0
           instprops honeydew
   end


   polygon
           4
           30 44 60
           0  44 60
           0  36 60
           30 36 60
           instprops honeydew
   end


   polygon
           4
           28 42 58
           2  42 58
           2  42 0
           28 42 0
           instprops honeydew
   end


   polygon
           4
           28 42 0
           2  42 0
           2  2  0
           28 2  0
           instprops honeydew
   end


   polygon
           6
           28 2  10
           28 36 10
           28 36 58
           28 42 58
           28 42 0
           28 2  0
           instprops honeydew
   end


   polygon
           6
           2 42 58
           2 36 58
           2 36 10
           2 2  10
           2 2  0
           2 42 0
           instprops honeydew
   end

end


defobj urinal1
   instobj urinal
      rotate z 90
      shift 44 46 55
   end
end



defobj urinal2
   instobj urinal1
      shift 0 60 0
   end
end



defobj urinal3
   instobj urinal2
      shift 0 60 0
   end
end



defobj urinal4
   instobj urinal3
      shift 0 60 0
   end
end



defobj urinal5
   instobj urinal4
      shift 0 60 0
   end
end



defobj urinal6
   instobj urinal5
      shift 0 60 0
   end
end



defobj cistern

   instobj unitcube
      instprops honeydew
      scale 20 46 24
   end

end



defobj pipe1

   cylinder 2 59 85
            2 59 95
            2
            instprops silver
   end

end



defobj pipe2

   instobj pipe1
      shift 0 60 0
   end

end



defobj pipe3

   instobj pipe2
      shift 0 60 0
   end

end



defobj pipe4

   instobj pipe3
      shift 0 60 0
   end

end



defobj pipe5

   instobj pipe4
      shift 0 60 0
   end

end



defobj pipe6

   instobj pipe5
      shift 0 60 0
   end

end



defobj pipes

   instobj pipe1
   end


   instobj pipe2
   end


   instobj pipe3
   end


   instobj pipe4
   end


   instobj pipe5
   end


   instobj pipe6
   end


   cylinder 2 211 129
            2 211 196
            2
            instprops silver
   end


   cylinder 2 59  127
            2 378 127
            2
            instprops silver
   end

end



   instobj floor name Floor
   end


   instobj backwall name Backwall
   end


   instobj leftwall name Leftwall
   end


   instobj rightwall name Rightwall
   end

   instobj cubicalwall name Cubicalwall
   end


   instobj cubicalwallend name Cubicalwallnd
   end


   instobj ceiling name Ceiling
      shift 0 0 240
   end


   instobj toiletdoor1 name tdoor1
   end

   instobj division1 name div1
   end


   instobj toiletdoor2 name tdoor2
   end

   instobj division2 name div2
   end


   instobj toiletdoor3 name tdoor3
   end

   instobj enddivision name enddiv
   end

   instobj pipes name pipes
   end


   instobj urinal1 name urinal1
   end


   instobj urinal2 name urinal2
   end


   instobj urinal3 name urinal3
   end


   instobj urinal4 name urinal4
   end


   instobj urinal5 name urinal5
   end


   instobj urinal6 name urinal6
   end


   instobj cistern name cistern
      shift 0 188 196
   end